home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / arexx / editor / updatetools.rexx < prev    next >
OS/2 REXX Batch file  |  1995-12-22  |  2KB  |  88 lines

  1. /* UpDatePopup.rexx V2.0 -- Update the Program popup.                  */
  2. /* By Bob Caron (Grue) © 1995 NewTek Inc.                              */
  3.  
  4. TOASTERLIB="ToasterARexx.port"
  5.  
  6. call remlib('PROJECT_REXX_PORT')
  7. call remlib('rexxsupport.library')
  8.  
  9. call addlib('PROJECT_REXX_PORT' , 0)
  10. call addlib("rexxsupport.library", 0,-30,0)
  11.  
  12. startdir="toaster:arexx/editor/StartUpScripts"
  13.  
  14. if exists(startdir) then startup=1
  15. else startup=0
  16.  
  17. dir=showdir(startdir,'f','*')
  18. temp=translate(dir,'?',' ','?')
  19. temp2=translate(temp,' ','*',' ')
  20. dir = temp2
  21.  
  22. do while number~=12
  23.   number=eraseprogram(count)
  24. end
  25.  
  26. number=0
  27.  
  28. if startup=1 then do
  29.    loopto=words(dir); loop=1
  30.    do while (loop<loopto+1)
  31.       program=translate(word(dir,loop),' ','?')
  32.       filenam=program
  33.       if upper(right(program,5))=".REXX" then
  34.          filenam=left(program,length(filenam)-5)
  35.       if isarexx(startdir||"/"||program) then
  36.          number=LADDTOOL(filenam,startdir||"/"||program||" 1",1)
  37.       if number=12 then break
  38.       loop=loop+1
  39.    end
  40. end
  41.  
  42. call req_error("All done.")
  43.  
  44. call remlib('PROJECT_REXX_PORT')
  45. call remlib('rexxsupport.library')
  46. exit
  47.  
  48. eraseprogram:
  49. parse arg number
  50.  
  51. signal on error
  52. signal on syntax
  53.  
  54. call remtool(12)
  55.  
  56. syntax:
  57. error:
  58.  
  59. signal off error
  60.  
  61. return rc
  62.  
  63. isarexx:
  64. parse arg file
  65. if exists(file) then do
  66.     if open('infile',file,'READ') then do
  67.        filestart = readch('infile',2)
  68.        call close('infile')
  69.        if filestart="/*" then return 1
  70.     end
  71. end
  72. return 0
  73.  
  74. laddtool: procedure
  75. parse arg filenam,start,number
  76.  
  77. signal on error
  78. signal on syntax
  79.  
  80. call ADDTOOL(filenam,start,number)
  81.  
  82. syntax:
  83. error:
  84.  
  85. signal off error
  86.  
  87. return rc
  88.